home *** CD-ROM | disk | FTP | other *** search
/ 8bitfiles.net/archives / archives.tar / archives / compuserve-file-archive / 16 Vendor Support / DIAGNO.BIN / c64.bas
Unknown  |  2019-04-13  |  2.0 KB
open in: MacOS 8.1     |     Win98     |     DOS

view JSON data     |     view as text


This file was not able to be converted.
This format is not currently supported by dexvert.

ConfidenceProgramDetectionMatch TypeSupport
66% dexvert GW-BASIC (document/gwBasic) ext Supported
66% dexvert GFA-BASIC Atari (other/gfaBASICAtari) ext Supported
1% dexvert Amiga BASIC Protected File (other/amigaBASICProtectedFile) ext Unsupported
1% dexvert BAS VBDOS Pro 1.0 Source (other/basVBDOSPro10Source) ext Unsupported
1% dexvert Visual Basic Tokenized Source (other/visualBasicTokenizedSource) ext Unsupported
1% dexvert ZBASIC (other/zbasic) ext Unsupported
100% file data default
100% detectItEasy Format: plain text[LF] default (weak)


hex view
+--------+-------------------------+-------------------------+--------+--------+
|00000000| 31 30 20 52 45 4d 20 2a | 2a 2a 2a 2a 2a 2a 2a 2a |10 REM *|********|
|00000010| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000020| 2a 2a 2a 2a 2a 2a 0a 32 | 30 20 52 45 4d 20 46 49 |******.2|0 REM FI|
|00000030| 4c 45 20 44 49 41 47 4e | 4f 53 45 2c 20 43 4f 50 |LE DIAGN|OSE, COP|
|00000040| 59 52 49 47 48 54 20 31 | 39 38 38 20 45 44 20 46 |YRIGHT 1|988 ED F|
|00000050| 4c 49 4e 4e 0a 33 30 20 | 52 45 4d 0a 34 30 20 52 |LINN.30 |REM.40 R|
|00000060| 45 4d 20 56 49 53 49 54 | 20 43 42 4d 41 52 54 20 |EM VISIT| CBMART |
|00000070| 46 4f 52 55 4d 20 4f 4e | 20 43 4f 4d 50 55 53 45 |FORUM ON| COMPUSE|
|00000080| 52 56 45 0a 35 30 20 52 | 45 4d 0a 36 30 20 52 45 |RVE.50 R|EM.60 RE|
|00000090| 4d 20 54 48 49 53 20 50 | 52 4f 47 52 41 4d 20 4d |M THIS P|ROGRAM M|
|000000a0| 41 59 20 42 45 20 44 49 | 53 54 52 49 42 55 54 45 |AY BE DI|STRIBUTE|
|000000b0| 44 0a 37 30 20 52 45 4d | 20 46 52 45 45 4c 59 2e |D.70 REM| FREELY.|
|000000c0| 20 20 49 54 20 4d 41 59 | 20 4e 4f 54 20 42 45 20 |  IT MAY| NOT BE |
|000000d0| 43 48 41 4e 47 45 44 2c | 0a 37 35 20 52 45 4d 20 |CHANGED,|.75 REM |
|000000e0| 57 49 54 48 4f 55 54 20 | 50 45 52 4d 49 53 53 49 |WITHOUT |PERMISSI|
|000000f0| 4f 4e 2e 0a 38 30 20 52 | 45 4d 0a 39 30 20 52 45 |ON..80 R|EM.90 RE|
|00000100| 4d 20 31 32 2f 30 33 2f | 38 38 0a 31 30 30 20 52 |M 12/03/|88.100 R|
|00000110| 45 4d 20 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |EM *****|********|
|00000120| 2a 2a 2a 2a 2a 2a 2a 2a | 2a 2a 2a 2a 2a 2a 2a 2a |********|********|
|00000130| 2a 0a 31 31 30 20 52 45 | 4d 0a 31 32 30 20 52 45 |*.110 RE|M.120 RE|
|00000140| 4d 0a 31 33 30 20 52 45 | 4d 0a 31 34 30 20 44 49 |M.130 RE|M.140 DI|
|00000150| 4d 20 42 59 28 31 39 29 | 0a 31 35 30 20 4f 50 45 |M BY(19)|.150 OPE|
|00000160| 4e 20 31 35 2c 38 2c 31 | 35 0a 32 30 30 20 47 4f |N 15,8,1|5.200 GO|
|00000170| 53 55 42 20 31 30 30 30 | 30 0a 32 35 30 20 47 4f |SUB 1000|0.250 GO|
|00000180| 53 55 42 20 31 31 30 30 | 30 0a 33 30 30 20 47 4f |SUB 1100|0.300 GO|
|00000190| 53 55 42 20 31 32 30 30 | 30 0a 33 35 30 20 47 4f |SUB 1200|0.350 GO|
|000001a0| 53 55 42 20 31 33 30 30 | 30 0a 39 39 39 39 20 47 |SUB 1300|0.9999 G|
|000001b0| 4f 54 4f 20 35 31 30 30 | 30 0a 31 30 30 30 30 20 |OTO 5100|0.10000 |
|000001c0| 52 45 4d 20 43 4c 45 41 | 52 20 53 43 52 45 45 4e |REM CLEA|R SCREEN|
|000001d0| 2c 20 44 49 53 50 4c 41 | 59 20 54 49 54 4c 45 0a |, DISPLA|Y TITLE.|
|000001e0| 31 30 30 31 30 20 50 52 | 49 4e 54 22 93 22 3b 0a |10010 PR|INT".";.|
|000001f0| 31 30 30 32 30 20 52 45 | 4d 20 58 58 31 2e 2e 2e |10020 RE|M XX1...|
|00000200| 35 2e 2e 2e 31 30 2e 2e | 2e 31 35 2e 2e 2e 32 30 |5...10..|.15...20|
|00000210| 2e 2e 2e 32 35 2e 2e 2e | 33 30 2e 2e 2e 33 35 2e |...25...|30...35.|
|00000220| 2e 2e 34 30 22 00 0a 31 | 30 30 33 30 20 50 52 49 |..40"..1|0030 PRI|
|00000230| 4e 54 22 20 20 46 49 4c | 45 20 44 49 41 47 4e 4f |NT"  FIL|E DIAGNO|
|00000240| 53 45 20 56 31 2e 30 20 | 31 32 2f 30 33 2f 38 38 |SE V1.0 |12/03/88|
|00000250| 20 45 44 20 46 4c 49 4e | 4e 22 0a 31 30 30 34 30 | ED FLIN|N".10040|
|00000260| 20 52 45 54 55 52 4e 0a | 31 31 30 30 30 20 52 45 | RETURN.|11000 RE|
|00000270| 4d 20 47 45 54 20 46 49 | 4c 45 4e 41 4d 45 0a 31 |M GET FI|LENAME.1|
|00000280| 31 30 31 30 20 50 52 49 | 4e 54 0a 31 31 30 32 30 |1010 PRI|NT.11020|
|00000290| 20 49 4e 50 55 54 20 22 | 45 4e 54 45 52 20 46 49 | INPUT "|ENTER FI|
|000002a0| 4c 45 4e 41 4d 45 20 54 | 4f 20 44 49 41 47 4e 4f |LENAME T|O DIAGNO|
|000002b0| 53 45 3a 22 3b 46 49 24 | 0a 31 31 30 32 35 20 50 |SE:";FI$|.11025 P|
|000002c0| 52 49 4e 54 0a 31 31 30 | 33 30 20 49 4e 50 55 54 |RINT.110|30 INPUT|
|000002d0| 20 22 45 4e 54 45 52 20 | 46 49 4c 45 20 54 59 50 | "ENTER |FILE TYP|
|000002e0| 45 20 53 20 4f 52 20 50 | 22 3b 46 54 24 0a 31 31 |E S OR P|";FT$.11|
|000002f0| 30 34 30 20 49 46 20 46 | 54 24 3d 22 53 22 20 47 |040 IF F|T$="S" G|
|00000300| 4f 54 4f 20 31 31 31 30 | 30 0a 31 31 30 35 30 20 |OTO 1110|0.11050 |
|00000310| 49 46 20 46 54 24 3d 22 | 50 22 20 47 4f 54 4f 20 |IF FT$="|P" GOTO |
|00000320| 31 31 31 30 30 0a 31 31 | 30 36 30 20 50 52 49 4e |11100.11|060 PRIN|
|00000330| 54 22 91 22 3b 0a 31 31 | 30 37 30 20 47 4f 54 4f |T".";.11|070 GOTO|
|00000340| 20 31 31 30 33 30 0a 31 | 31 31 30 30 20 52 45 54 | 11030.1|1100 RET|
|00000350| 55 52 4e 0a 31 32 30 30 | 30 20 52 45 4d 20 41 54 |URN.1200|0 REM AT|
|00000360| 54 45 4d 50 54 20 54 4f | 20 4f 50 45 4e 20 46 49 |TEMPT TO| OPEN FI|
|00000370| 4c 45 0a 31 32 30 31 30 | 20 46 53 24 3d 46 49 24 |LE.12010| FS$=FI$|
|00000380| 2b 22 2c 22 2b 46 54 24 | 2b 22 2c 52 22 0a 31 32 |+","+FT$|+",R".12|
|00000390| 30 31 35 20 50 52 49 4e | 54 20 46 53 24 0a 31 32 |015 PRIN|T FS$.12|
|000003a0| 30 32 30 20 4f 50 45 4e | 20 32 2c 38 2c 32 2c 46 |020 OPEN| 2,8,2,F|
|000003b0| 53 24 0a 31 32 30 33 30 | 20 47 4f 53 55 42 20 35 |S$.12030| GOSUB 5|
|000003c0| 30 30 30 30 0a 31 32 30 | 34 30 20 49 46 20 45 4e |0000.120|40 IF EN|
|000003d0| 3d 30 20 54 48 45 4e 20 | 52 45 54 55 52 4e 0a 31 |=0 THEN |RETURN.1|
|000003e0| 32 30 35 30 20 49 46 20 | 45 4e 3d 36 32 20 47 4f |2050 IF |EN=62 GO|
|000003f0| 54 4f 20 35 30 31 30 30 | 0a 31 32 30 36 30 20 50 |TO 50100|.12060 P|
|00000400| 52 49 4e 54 0a 31 32 30 | 37 30 20 50 52 49 4e 54 |RINT.120|70 PRINT|
|00000410| 22 45 52 52 4f 52 20 4f | 4e 20 46 49 4c 45 20 4f |"ERROR O|N FILE O|
|00000420| 50 45 4e 22 0a 31 32 30 | 38 30 20 50 52 49 4e 54 |PEN".120|80 PRINT|
|00000430| 20 45 4e 22 2c 22 45 4d | 24 22 2c 22 45 54 22 2c | EN","EM|$","ET",|
|00000440| 22 45 53 0a 31 32 30 39 | 30 20 47 4f 54 4f 20 35 |"ES.1209|0 GOTO 5|
|00000450| 31 30 30 30 0a 31 33 30 | 30 30 20 52 45 4d 20 52 |1000.130|00 REM R|
|00000460| 45 41 44 20 53 4f 4d 45 | 20 46 49 4c 45 0a 31 33 |EAD SOME| FILE.13|
|00000470| 30 31 30 20 43 53 3d 30 | 0a 31 33 30 32 30 20 49 |010 CS=0|.13020 I|
|00000480| 20 3d 20 30 0a 31 33 30 | 33 30 20 47 45 54 23 32 | = 0.130|30 GET#2|
|00000490| 2c 41 24 0a 31 33 30 33 | 35 20 52 53 3d 53 54 0a |,A$.1303|5 RS=ST.|
|000004a0| 31 33 30 33 37 20 47 4f | 53 55 42 20 35 30 30 30 |13037 GO|SUB 5000|
|000004b0| 30 0a 31 33 30 34 30 20 | 49 46 20 52 53 3d 30 20 |0.13040 |IF RS=0 |
|000004c0| 47 4f 54 4f 20 31 33 31 | 30 30 0a 31 33 30 35 30 |GOTO 131|00.13050|
|000004d0| 20 49 46 20 52 53 3d 36 | 34 20 47 4f 54 4f 20 32 | IF RS=6|4 GOTO 2|
|000004e0| 30 30 30 30 0a 31 33 30 | 36 30 20 50 52 49 4e 54 |0000.130|60 PRINT|
|000004f0| 0a 31 33 30 37 30 20 50 | 52 49 4e 54 20 22 45 52 |.13070 P|RINT "ER|
|00000500| 52 4f 52 20 4f 4e 20 47 | 45 54 2c 20 53 54 41 54 |ROR ON G|ET, STAT|
|00000510| 55 53 3d 20 22 52 53 0a | 31 33 30 38 30 20 47 4f |US= "RS.|13080 GO|
|00000520| 54 4f 20 35 31 30 30 30 | 0a 31 33 31 30 30 20 49 |TO 51000|.13100 I|
|00000530| 46 20 45 4e 3c 3e 30 20 | 47 4f 54 4f 20 31 33 32 |F EN<>0 |GOTO 132|
|00000540| 30 30 0a 31 33 31 31 30 | 20 42 59 28 49 29 3d 41 |00.13110| BY(I)=A|
|00000550| 53 43 28 41 24 2b 43 48 | 52 24 28 30 29 29 0a 31 |SC(A$+CH|R$(0)).1|
|00000560| 33 31 32 30 20 43 53 3d | 43 53 2b 42 59 28 49 29 |3120 CS=|CS+BY(I)|
|00000570| 0a 31 33 31 33 30 20 49 | 46 20 49 3d 31 39 20 09 |.13130 I|F I=19 .|
|00000580| 0a 31 33 31 34 30 20 49 | 20 3d 20 49 20 2b 20 31 |.13140 I| = I + 1|
|00000590| 0a 31 33 31 35 30 20 47 | 4f 54 4f 20 31 33 30 33 |.13150 G|OTO 1303|
|000005a0| 30 0a 31 33 32 30 30 20 | 52 45 4d 20 45 52 52 4f |0.13200 |REM ERRO|
|000005b0| 52 20 4f 4e 20 52 45 41 | 44 0a 31 33 32 31 30 20 |R ON REA|D.13210 |
|000005c0| 50 52 49 4e 54 0a 31 33 | 32 32 30 20 50 52 49 4e |PRINT.13|220 PRIN|
|000005d0| 54 22 45 52 52 4f 52 20 | 4f 4e 20 52 45 41 44 22 |T"ERROR |ON READ"|
|000005e0| 0a 31 33 32 33 30 20 50 | 52 49 4e 54 20 45 4e 22 |.13230 P|RINT EN"|
|000005f0| 2c 22 45 4d 24 22 2c 22 | 45 54 22 2c 22 45 53 0a |,"EM$","|ET","ES.|
|00000600| 31 33 32 34 30 20 47 4f | 54 4f 20 35 31 30 30 30 |13240 GO|TO 51000|
|00000610| 0a 32 30 30 30 30 20 52 | 45 4d 20 45 4e 44 20 4f |.20000 R|EM END O|
|00000620| 46 20 46 49 4c 45 20 52 | 4f 55 54 49 4e 45 0a 32 |F FILE R|OUTINE.2|
|00000630| 30 30 33 30 20 50 52 49 | 4e 54 20 22 93 46 49 4c |0030 PRI|NT ".FIL|
|00000640| 45 20 44 41 54 41 20 46 | 4f 4c 4c 4f 57 53 22 0a |E DATA F|OLLOWS".|
|00000650| 32 30 30 35 30 20 4a 3d | 30 0a 32 30 30 36 30 20 |20050 J=|0.20060 |
|00000660| 49 46 20 4a 20 3e 20 49 | 20 54 48 45 4e 20 32 31 |IF J > I| THEN 21|
|00000670| 30 30 30 0a 32 30 30 37 | 30 20 50 52 49 4e 54 20 |000.2007|0 PRINT |
|00000680| 42 59 28 4a 29 0a 32 30 | 30 38 30 20 4a 20 3d 20 |BY(J).20|080 J = |
|00000690| 4a 20 2b 20 31 0a 32 30 | 30 39 30 20 47 4f 54 4f |J + 1.20|090 GOTO|
|000006a0| 20 32 30 30 36 30 0a 32 | 31 30 30 30 20 49 46 20 | 20060.2|1000 IF |
|000006b0| 49 20 3d 20 31 39 20 54 | 48 45 4e 20 32 31 35 30 |I = 19 T|HEN 2150|
|000006c0| 30 0a 32 31 30 31 30 20 | 50 52 49 4e 54 22 53 48 |0.21010 |PRINT"SH|
|000006d0| 4f 52 54 20 46 49 4c 45 | 2c 22 28 49 2b 31 29 22 |ORT FILE|,"(I+1)"|
|000006e0| 20 42 59 54 45 53 22 0a | 32 31 35 30 30 20 50 52 | BYTES".|21500 PR|
|000006f0| 49 4e 54 22 43 48 45 43 | 4b 53 55 4d 3d 22 43 53 |INT"CHEC|KSUM="CS|
|00000700| 3b 0a 32 31 35 31 30 20 | 47 4f 54 4f 20 35 31 30 |;.21510 |GOTO 510|
|00000710| 30 30 0a 35 30 30 30 30 | 20 52 45 4d 20 4f 42 54 |00.50000| REM OBT|
|00000720| 41 49 4e 20 45 52 52 4f | 52 20 53 54 41 54 55 53 |AIN ERRO|R STATUS|
|00000730| 0a 35 30 30 31 30 20 49 | 4e 50 55 54 23 31 35 2c |.50010 I|NPUT#15,|
|00000740| 45 4e 2c 45 4d 24 2c 45 | 54 2c 45 53 0a 35 30 30 |EN,EM$,E|T,ES.500|
|00000750| 32 30 20 52 45 54 55 52 | 4e 0a 35 30 31 30 30 20 |20 RETUR|N.50100 |
|00000760| 50 52 49 4e 54 0a 35 30 | 31 31 30 20 50 52 49 4e |PRINT.50|110 PRIN|
|00000770| 54 22 46 49 4c 45 20 22 | 46 49 24 22 2c 22 46 54 |T"FILE "|FI$","FT|
|00000780| 24 22 20 4e 4f 54 20 46 | 4f 55 4e 44 22 0a 35 30 |$" NOT F|OUND".50|
|00000790| 31 32 30 20 50 52 49 4e | 54 22 50 4c 45 41 53 45 |120 PRIN|T"PLEASE|
|000007a0| 20 43 48 45 43 4b 20 4e | 41 4d 45 20 41 4e 44 20 | CHECK N|AME AND |
|000007b0| 54 59 50 45 22 0a 35 30 | 31 33 30 20 50 52 49 4e |TYPE".50|130 PRIN|
|000007c0| 54 0a 35 30 31 34 30 20 | 47 4f 54 4f 20 35 31 30 |T.50140 |GOTO 510|
|000007d0| 30 30 0a 35 31 30 30 30 | 20 43 4c 4f 53 45 32 3a |00.51000| CLOSE2:|
|000007e0| 43 4c 4f 53 45 31 35 0a | 35 31 30 31 30 20 45 4e |CLOSE15.|51010 EN|
|000007f0| 44 0a                   |                         |D.      |        |
+--------+-------------------------+-------------------------+--------+--------+